Sub prueba_EOF()
    Dim fichero As String
    fichero = "C:\Temp\NotasLineInput.txt"
    Open fichero For Input As #1
    Dim linea As String
    Do While Not EOF(1)
      Line Input #1, linea
      Debug.Print "Linea (" & linea & ")"
    Loop
    Close #1
End Sub
